From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 28 Sep 2003 08:30:20 +0000 (+0000)
Subject: (Man-default-man-entry): Remove the leading `*' from the word at point.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~25418
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=8f44a6559968d3951c6818e4b72a1cd3bef316b2;p=emacs.git

(Man-default-man-entry): Remove the leading `*' from the word at point.
---

diff --git a/lisp/man.el b/lisp/man.el
index 075c38866fb..4a768e1effb 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -572,6 +572,9 @@ This guess is based on the text surrounding the cursor."
 	(setq word (buffer-substring-no-properties start (point))))
       (if (string-match "[._]+$" word)
 	  (setq word (substring word 0 (match-beginning 0))))
+      ;; If looking at something like *strcat(... , remove the '*'
+      (if (string-match "^*" word)
+	  (setq word (substring word 1)))
       ;; If looking at something like ioctl(2) or brc(1M), include the
       ;; section number in the returned value.  Remove text properties.
       (concat word